home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 4 / developer source - volume 4.iso / orinf / may96 / hoskf111.gif

< prev

next >

Graphics Interchange Format  |  1996-07-26  |  10KB  |  761x438  |  4-bit (12 colors)

Labels: text | electronics | screenshot | display | software | computer icon | web page | operating system | computer | number | website
OCR: frmContact Properties QueryWhere Sub Querywhere(condition as String) inherited. QueryWhere ( condition ) udpQueryStr = condition IstContacts. Translation = "=SELECT lastname | | ', ' || firstname, contactid FROM contact WHERE " && condition & " ORDER BY lastname, firstname ASC" DIM rec AS Object rec = frmContact. GetRecordset ( ) rNumRows = rec. GetRowCount ( ) txt Contacts. Label = "Addresses for '" & frmContact. udpSelectedTab & " .. . ' - (" & CSTR( rNumRows ) && rr records) " IF rNumRows = 0 THEN btnPhone. Visible = FALSE ELSE btnPhone. Visible = TRUE END IF "ContactId = rec. Get ColVal ( "CONTACTID" ) IstContacts. Value = rContactId

---